home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / misc / skoed1.14.lha / SkoEd / Arexx / TestRexx1.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-04-13  |  580 b   |  33 lines
  1. /* TestRexx1.rexx */
  2. /*
  3.        This shows simple calls to SkoEd
  4.  
  5.        with SkoEd running,  RX TestRexx1.rexx
  6.  
  7. */
  8.  
  9. Options FailAt 10
  10. Options results
  11.  
  12. say 'About to Start'
  13. Address COMMAND 'wait' sec 4
  14. Address SKOED1 "Get_Var(LineNum)"
  15. say result
  16. Address SKOED1 "Get_Var(FileName)"
  17. file = result
  18. Address SKOED1 "Get_Var(FilePath)"
  19. path = result
  20. say path || file
  21. Address SKOED1 "Msg(Hello)"
  22. Address COMMAND 'wait' sec 4
  23. Address SKOED1 "Set_Var(INSERT FALSE)"
  24. if rc > 0 then
  25.    exit (5)
  26. else
  27.    say "Done"
  28. Address SKOED1 "UmmErr"
  29. if rc > 0 then
  30.    say "Error"
  31. else
  32.    say "All Done"
  33.